home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 March / PC Plus Super CD (Issue 101) (March 1995).iso / sharewar / vbaddon / vbfiles / fclipbrd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-16  |  1.9 KB  |  63 lines
  1. VERSION 2.00
  2. Begin Form fClipbrd 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Visual Clipboard"
  5.    ClientHeight    =   3615
  6.    ClientLeft      =   390
  7.    ClientTop       =   3210
  8.    ClientWidth     =   4290
  9.    Height          =   4080
  10.    Left            =   300
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3615
  13.    ScaleWidth      =   4290
  14.    Top             =   2835
  15.    Width           =   4470
  16.    Begin vsInForm VSInForm1 
  17.       BarColor        =   &H00808000&
  18.       BarColorInactive=   &H00808000&
  19.       BarHeight       =   36
  20.       BarStyle        =   3  'Raised
  21.       ButtonsLeft     =   0  '0
  22.       ButtonsRight    =   2  '2
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00FFFFFF&
  25.       CapColorInactive=   &H00FFFFFF&
  26.       CapMultiLine    =   -1  'True
  27.       Caption         =   "  Visual Clipboard"
  28.       ClipMon         =   -1  'True
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "Arial"
  32.       FontSize        =   12
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       FrameColor      =   &H00C0C0C0&
  36.       FrameColorInactive=   &H00C0C0C0&
  37.       FrameStyle      =   4  'Raised Frame
  38.       FrameWidth      =   12
  39.       Left            =   735
  40.       MinHeight       =   870
  41.       MinWidth        =   3500
  42.       PictRight0      =   FCLIPBRD.FRX:0000
  43.       PictRight1      =   FCLIPBRD.FRX:0176
  44.       Top             =   1260
  45.    End
  46. Option Explicit
  47. Sub Form_Load ()
  48.   VSinform1.CustomFrame = True
  49.   Me.Show
  50.   MsgBox "Copy something to the clipboard and see it on the Visual Clipboard"
  51. End Sub
  52. Sub vsInForm1_ClickRButton (Button As Integer)
  53.   Select Case Button
  54.     Case 0
  55.       Unload Me
  56.     Case 1    'Clear
  57.       Me.Picture = LoadPicture()
  58.   End Select
  59. End Sub
  60. Sub VSInForm1_NewClipboardData ()
  61.   Me.Picture = Clipboard.GetData()
  62. End Sub
  63.